﻿Public Class municaoVO

    Private _id_municao As Integer
    Private _calibre As calibreVO
    Private _desc_tipo As String
    Private _comp_estojo As Double

    '-------------------------------------
    ' MÉTODO CONSTRUTOR SEM PARAMETROS
    '-------------------------------------
    Sub New()
        _id_municao = Nothing
        _calibre = Nothing
        _desc_tipo = Nothing
        _comp_estojo = Nothing

    End Sub
    '-------------------------------------
    ' MÉTODO CONSTRUTOR COM PARAMETROS
    '-------------------------------------
    Sub New(ByVal id_municao As Integer, _
            ByVal calibre As calibreVO, _
            ByVal desc_tipo As String, _
            ByVal comp_estojo As Double)

        _id_municao = id_municao
        _calibre = calibre
        _desc_tipo = desc_tipo
        _comp_estojo = comp_estojo
    End Sub

    Public Property ID_MUNICAO() As Integer
        Get
            Return _id_municao
        End Get
        Set(ByVal value As Integer)
            _id_municao = value
        End Set
    End Property

    Public Property CALIBRE() As calibreVO
        Get
            Return _calibre
        End Get
        Set(ByVal value As calibreVO)
            _calibre = value
        End Set
    End Property

    Public Property DESC_TIPO() As String
        Get
            Return _desc_tipo
        End Get
        Set(ByVal value As String)
            _desc_tipo = value
        End Set
    End Property

    Public Property COPM_ESTOJO() As Double
        Get
            Return _comp_estojo
        End Get
        Set(ByVal value As Double)
            _comp_estojo = value
        End Set
    End Property
End Class
